home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / util / arc / LZXConv_v1_0a.lha / LZXConv.e < prev    next >
Text File  |  1995-04-14  |  1KB  |  67 lines

  1. MODULE 'DOS/dos'
  2.  
  3. PROC main()
  4. DEF file[300]:STRING,old,l
  5.  
  6.     StringF(file,'makedir LZXTemp')
  7.     Execute(file,0,0)
  8.     l:=Lock('LZXTemp',-2)
  9.     old:=CurrentDir(l)
  10.     StringF(file,'Lx \s',arg,arg)
  11.     Execute(file,0,0)
  12.     StringF(file,'lzx -r -e a SYS:temp.lzx #?',arg)
  13.     Execute(file,0,0)
  14.     StringF(file,arg)
  15.     UpperStr(file)
  16.     slice(file,arg)
  17.     StringF(file,'Copy SYS:temp.lzx \s',arg)
  18.     Execute(file,0,0)
  19.     StringF(file,'Delete SYS:temp.lzx >NIL:')
  20.     Execute(file,0,0)
  21.     CurrentDir(old)
  22.     UnLock(l)
  23.     StringF(file,'Delete LZXTemp ALL >NIL:')
  24.     Execute(file,0,0)
  25. ENDPROC
  26.  
  27.  
  28.  
  29. PROC slice(name,nameX)
  30.  
  31.     MOVE.L  name,A0
  32.     MOVE.L  nameX,A1
  33. s:  ADD.L   #1,A0
  34.     ADD.L   #1,A1
  35.     CMP.B   #0,(A0)
  36.     BEQ     outa
  37.     CMP.L   #".LHA",(A0)
  38.     BNE     s1
  39.     MOVE.L  #".LZX",(A1)
  40. s1:
  41.     CMP.L   #".LZH",(A0)
  42.     BNE     s2
  43.     MOVE.L  #".LZX",(A1)
  44. s2:
  45.     CMP.L   #".ARC",(A0)
  46.     BNE     s3
  47.     MOVE.L  #".LZX",(A1)
  48. s3:
  49.     CMP.L   #".ZOO",(A0)
  50.     BNE     s4
  51.     MOVE.L  #".LZX",(A1)
  52. s4:
  53.     CMP.L   #".ARJ",(A0)
  54.     BNE     s5
  55.     MOVE.L  #".LZX",(A1)
  56. s5:
  57.     CMP.L   #".ZIP",(A0)
  58.     BNE     s6
  59.     MOVE.L  #".LZX",(A1)
  60. s6: CMP.L   #".LZX",(A0)
  61.     BNE     s
  62.  
  63. outa:
  64.  
  65.  
  66. ENDPROC
  67.